SuperModels in the Rainforest/SuperModels in the Rainforest.iso/rain.dxr/00486_loo's camera.ls

Text File | 1995-10-13 | 704 b | 21 lines

on mouseDown
  global giVid2Sprite, giVidSprite, giTempVid2Cast, giTempVidCast, giVid3Sprite, giTempVid3Cast, glShotList, gbShotFlag, spriteloo
  buttonLogic()
  puppetSound("snapshot")
  if the result = 1 then
    set tempSprite to 0
    if the visible of sprite 3 = 1 then
      set tempSprite to spriteloo
      set moviemovie to the castNum of sprite spriteloo
      set tempCast to moviemovie
    end if
    if gbShotFlag = 0 then
      set glShotList to [the fileName of cast tempCast, the movieTime of sprite tempSprite]
      set gbShotFlag to 1
    else
      append(glShotList, the fileName of cast tempCast)
      append(glShotList, the movieTime of sprite tempSprite)
    end if
  end if
end